
. SUPER SLOT

   1 .
   2 . SUPER SLOT
   3 . BY ROB ROSENHOUSE
   4 . FOR SUPER SOFTWARE
   5 .
   6 . (C) 1980
   7 .
   9 :RETURN ;NT=0;BC=222;FC=56
  10 CLEAR ;PRINT "PLAYERS?
  20 K=KP-48;IF (K<1)+(K>4)GOTO 20
  30 NT=3;MU="Q";NT=0;FOR A=1TO K;@(A)=15;NEXT A;CLEAR ;CX=-27;PRINT "SUPER SLOT
 100 FOR A=1TO K;CY=-8×A-7;CX=-70;PRINT "PLAYER ",#2,A,;CX=26;PRINT @(A);NEXT A
 200 FOR Z=-15TO -8×K-7STEP -8;CY=Z;IF @(-Z÷8)<=0GOTO 1500
 210 BOX -77,-27,6,32,2;CX=-79;PRINT "*",
 300 IF TR(-Z÷8)=0GOTO 300
 305 @(-Z÷8)=@(-Z÷8)-1;GOSUB 980;CY=Z;CX=26;PRINT @(-Z÷8)
 310 GOSUB 10000;CY=24;G=0;H=0;I=0;J=0;L=0;M=0;N=0
 400 S=RND (15);T=RND (15);U=RND (15);IF S<4GOSUB 5000
 420 IF (S>3)×(S<7)GOSUB 5010
 430 IF S=7GOSUB 5020
 440 IF (S=8)+(S=9)GOSUB 5030
 450 IF (S>9)×(S<13)GOSUB 5040
 460 IF (S=13)+(S=14)GOSUB 5050
 470 IF S=15GOSUB 5060
 480 IF T=1GOSUB 5000
 490 IF (T=2)+(T=3)GOSUB 5010
 500 IF (T=4)+(T=5)GOSUB 5020
 510 IF (T=6)+(T=7)GOSUB 5030
 520 IF (T=8)+(T=9)GOSUB 5040
 530 IF (T>9)×(T<13)GOSUB 5050
 540 IF T>12GOSUB 5060
 550 IF U=1GOSUB 5000
 560 IF (U=2)+(U=3)GOSUB 5010
 570 IF (U=4)+(U=5)GOSUB 5020
 580 IF (U>5)×(U<9)GOSUB 5030
 590 IF (U=9)+(U=10)GOSUB 5040
 600 IF (U=11)+(U=12)GOSUB 5050
 610 IF U>12GOSUB 5060
 700 W=0;IF (S<4)×(T=1)×(U=1)W=30
 710 IF (S>3)×(S<7)×(T<4)×(U<4)W=25
 720 IF (S>15)×(T>9)×(T<15)×(U>10)×(U<13)W=20
 730 IF (S>9)×(S<13)×(T>7)×(T<10)×(U>8)×(U<11)W=15
 740 IF (S=1)×(T>3)×(T<6)×(U>3)×(U<6)W=18
 750 IF (S=7)×(T>3)×(T<6)×((U<4)+(U>5))W=12
 760 IF J>1W=10
 765 IF H=2W=15
 770 IF G=2W=18
 800 IF W=0GOTO 1500
 900 FOR Y=1TO 2;CY=Z;CX=0;PRINT #3,W;GOSUB 980
 910 CY=Z;CX=0;PRINT "    ";GOSUB 980;NEXT Y;CY=Z;CX=0;PRINT #3,W
 920 @(-Z÷8)=@(-Z÷8)+W;GOSUB 980;CY=Z;CX=0;PRINT "    ";GOTO 1500
 980 &(21)=31;FOR A=50TO 0STEP -2;&(19)=A;NEXT A;&(21)=0;RETURN 
1500 CY=Z;CX=26;PRINT @(-Z÷8);IF @(-Z÷8)>18IF RND (3)=3GOSUB 9000
1510 NEXT Z;FOR Z=1TO K;IF @(Z)=0NEXT Z;GOTO 2000
1520 GOTO 200
2000 CY=16;CX=-24;PRINT "GAME OVER
2010 IF &(23)=1RUN 
2020 GOTO 2010
5000 CX=-9;PRINT "STAR";G=G+1;RETURN 
5010 CX=-6;PRINT "BAR";H=H+1;RETURN 
5020 CX=-15;PRINT "CHERRY";I=I+1;RETURN 
5030 CX=-12;PRINT "LEMON";J=J+1;RETURN 
5040 CX=-15;PRINT "ORANGE";N=N+1;RETURN 
5050 CX=-12;PRINT "BALLY";L=L+1;RETURN 
5060 CX=-9;PRINT "PLUM";M=M+1;RETURN 
9000 &(18)=9;FOR A=210TO 0STEP -10;&(21)=A;&(22)=A;&(23)=A;BOX 64,Z,15,10,3;NEXT A;&(22)=0;&(18)=0
9010 B=RND (@(-Z÷8));@(-Z÷8)=@(-Z÷8)-B;CY=Z;CX=26;PRINT @(-Z÷8);RETURN 
10000 FOR V=24TO 8STEP -8;CY=V;CX=-36;PRINT "►           ◄";NEXT V;RETURN 

:RETURN 
>